home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok46.lha / Module / FileOut.def < prev    next >
Text File  |  1993-08-15  |  949b  |  42 lines
  1. (*
  2.  * -------------------------------------------------------------------------
  3.  *
  4.  *    :Program.    FileOut.def
  5.  *    :Contents.    Ausgaben wie mit InOut aber auf eine Datei.
  6.  *    :Author.    Reiner Nix
  7.  *    :Address.    Geranienhof 2, 5000 Köln 71 Seeberg
  8.  *    :Copyright.    Public Domain
  9.  *    :Language.    Modula-2
  10.  *    :Translator.    M2Amiga A-L V3.3d
  11.  *    :History.    V1.0    21.11.90
  12.  *
  13.  * -------------------------------------------------------------------------
  14.  *)
  15. DEFINITION MODULE FileOut;
  16.  
  17. FROM    FileSystem    IMPORT    File;
  18.  
  19.  
  20. PROCEDURE WriteLn    (VAR file    :File);
  21.  
  22. PROCEDURE Write        (VAR file    :File;
  23.              char        :CHAR);
  24.  
  25. PROCEDURE WriteString    (VAR file    :File;
  26.              string        :ARRAY OF CHAR);
  27.  
  28. PROCEDURE WriteInt    (VAR file    :File;
  29.              number        :LONGINT; n    :CARDINAL);
  30.  
  31. PROCEDURE WriteCard    (VAR file    :File;
  32.              number        :LONGCARD; n    :CARDINAL);
  33.  
  34. PROCEDURE WriteBool    (VAR file    :File;
  35.              boolean    :BOOLEAN);
  36.  
  37. PROCEDURE WriteReal    (VAR file    :File;
  38.              number        :REAL; m,n    :CARDINAL);
  39.  
  40.  
  41. END FileOut.
  42.